home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Pocket Forth 0.6.3 / Extensions / Starting / Chapter 12 / NoWeighting < prev   
Encoding:
Text File  |  1993-06-11  |  1.0 KB  |  16 lines  |  [TEXT/McSk]
  1. / ;
  2. : PILE  ( scaled-height -- )
  3.     dup dup 10 */  1000 */  355 339 */  /tan /tan
  4.     density @  200 */  ." = "  .  ." tons of "  .substance ;
  5.  
  6. \ table of materials
  7. \ string-address    density    theta
  8. ," cement"            131       700   material CEMENT
  9. ," loose gravel"       93       649   material LOOSE-GRAVEL
  10. ," packed gravel"     100       700   material PACKED-GRAVEL
  11. ," dry sand"           90       754   material DRY-SAND
  12. ," wet sand"          118       900   material WET-SAND
  13. ," clay"              120       727   material CLAY
  14.  
  15. CEMENT
  16.